home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
AMIGA
/
(A)G
/
(A)G10.ADF
/
BasicTimers
/
NinetySec
(
.txt
)
next >
Wrap
AmigaBASIC Source Code
|
1989-03-16
|
618b
|
25 lines
CLS 'Q90 timer
st:
PRINT
PRINT "Time","5sec","1 min","PulsePerSec.","Average Whole Run"
PRINT TIME$
strt:
J$ = RIGHT$ (TIME$,1)
IF J$ = "0" OR J$ = "5" THEN cn
GOTO strt
cn:
PRINT TIME$
FOR t = 1 TO 18 '18 = 90 seconds
FOR d = 1 TO 3100
b=b-STRIG(2)
NEXT d
v = b/5 : cn = cn + 1 : vv = vv + v
x = vv/cn :
PRINT TIME$,b,b*12"SPM",b/5 "Hz", x
m=m+b
b = 0
NEXT t
PRINT " Average this 90 seconds ="(m/90) * 60"SPM",m/90 "Hz"
m=0: GOTO st